home *** CD-ROM | disk | FTP | other *** search
/ PCMania 40 / PCMania CD40_1.iso / render40 / oca_a / alfil.inc < prev    next >
Text File  |  1995-10-05  |  821b  |  29 lines
  1. #include "shapes.inc"
  2.  
  3. #declare Base=union{
  4.                 intersection{
  5.                 quadric{Ellipsoid scale <2.3 2.3 2.3>}
  6.                 plane{<0 -1 0> 0}
  7.                 }
  8.               quadric{Ellipsoid scale <2 .5 2> translate <0 2 0>}
  9. }
  10.  
  11. #declare Cuerpo=intersection{
  12.         plane{<0 1 0> 5}
  13.         quadric{Hyperboloid_Y scale <.5 1.5 .5> translate <0 5 0>}
  14.         plane{<0 -1 0> 1}
  15. }
  16.  
  17. #declare Cabeza=union{
  18.         quadric{Ellipsoid scale <1.3 .4 1.1> translate<0 5.5 0>}
  19.         quadric{Ellipsoid scale <1.1 .4 1.1> translate<0 6 0>}
  20.         quadric{Ellipsoid scale <.9 .4 .9> translate <0 6.5 0>}
  21.         quadric{Ellipsoid scale <.8 1.3 .8> translate <0 8 0>}
  22.         quadric{Ellipsoid scale <.5 .5 .5> translate<0 9.5 0>}
  23. }
  24.  
  25. #declare Alfil=union{
  26.         union{Base}
  27.         intersection{Cuerpo translate <0 1 0>}
  28.         union{Cabeza}
  29.         }